(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      9753,        220]
NotebookOptionsPosition[      9198,        198]
NotebookOutlinePosition[      9543,        213]
CellTagsIndexPosition[      9500,        210]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[StyleBox["\:8d28\:6570\:7ebf\:6bb5\:56fe, \:8d28\:6570\:5206\
\:5e03\:7684\:4e00\:4e2a\:5e73\:8861\:6027\:8d28", "Section"]], "Text",
 CellChangeTimes->{{3.4737452051758566`*^9, 3.473745217226856*^9}, {
  3.4737462570988564`*^9, 3.4737462571098566`*^9}, {3.4737501016398563`*^9, 
  3.4737501190258565`*^9}}],

Cell["2010-01-29", "Text",
 CellChangeTimes->{{3.4724369074434342`*^9, 3.4724369118044343`*^9}, {
   3.473746301226856*^9, 3.4737463387708564`*^9}, {3.4737464227908564`*^9, 
   3.4737465810938563`*^9}, {3.4737467117588563`*^9, 3.473746828957856*^9}, 
   3.4737469626868563`*^9, {3.4737469985368567`*^9, 3.4737470172098565`*^9}, {
   3.4737470999438562`*^9, 3.473747121544856*^9}, {3.4737471871708565`*^9, 
   3.4737472090578566`*^9}, {3.4737472552978563`*^9, 3.4737473340988564`*^9}, 
   3.4737474822558565`*^9, {3.473749869747856*^9, 3.4737498760438566`*^9}, {
   3.4737501459638567`*^9, 3.473750180589856*^9}, {3.4737502309688563`*^9, 
   3.4737504953578568`*^9}, {3.4737505588898563`*^9, 
   3.4737505856668563`*^9}, {3.4737508067128563`*^9, 3.4737508300908566`*^9}}],

Cell["\<\
Suppose p[i] is the i-th prime. Start from coordinate origin (0,0) , first \
line to (2,0), then line to (2,3), then to (2+5,3), then to (7,3+7), then to \
(7+11,10), and so go on...... here 2,3,5,7,11 is the prime list. I call this \
Prime Segment Diagram. It is very interest! \
\>", "Text",
 CellChangeTimes->{{3.4724369074434342`*^9, 3.4724369118044343`*^9}, {
   3.473746301226856*^9, 3.4737463387708564`*^9}, {3.4737464227908564`*^9, 
   3.4737465810938563`*^9}, {3.4737467117588563`*^9, 3.473746828957856*^9}, 
   3.4737469626868563`*^9, {3.4737469985368567`*^9, 3.4737470172098565`*^9}, {
   3.4737470999438562`*^9, 3.473747121544856*^9}, {3.4737471871708565`*^9, 
   3.4737472090578566`*^9}, {3.4737472552978563`*^9, 3.4737473340988564`*^9}, 
   3.4737474822558565`*^9, {3.473749869747856*^9, 3.4737498760438566`*^9}, {
   3.4737501459638567`*^9, 3.473750180589856*^9}, {3.4737502309688563`*^9, 
   3.4737504953578568`*^9}, {3.4737505588898563`*^9, 3.4737505856668563`*^9}, 
   3.4737508067128563`*^9}],

Cell[TextData[StyleBox["Conjecture: The line y=x intersect with every segment \
of  Prime Segment Diagram.  ", "Theorem"]], "Text",
 CellChangeTimes->{{3.4724369074434342`*^9, 3.4724369118044343`*^9}, {
   3.473746301226856*^9, 3.4737463387708564`*^9}, {3.4737464227908564`*^9, 
   3.4737465810938563`*^9}, {3.4737467117588563`*^9, 3.473746828957856*^9}, 
   3.4737469626868563`*^9, {3.4737469985368567`*^9, 3.4737470172098565`*^9}, {
   3.4737470999438562`*^9, 3.473747121544856*^9}, {3.4737471871708565`*^9, 
   3.4737472090578566`*^9}, {3.4737472552978563`*^9, 3.4737473340988564`*^9}, 
   3.4737474822558565`*^9, {3.473749869747856*^9, 3.4737498760438566`*^9}, {
   3.4737501459638567`*^9, 3.473750180589856*^9}, {3.4737502309688563`*^9, 
   3.4737504953578568`*^9}, {3.4737505588898563`*^9, 3.4737506134548564`*^9}}],

Cell["\<\
It implies the balance of prime distribution.\
\>", "Text",
 CellChangeTimes->{{3.4724369074434342`*^9, 3.4724369118044343`*^9}, {
   3.473746301226856*^9, 3.4737463387708564`*^9}, {3.4737464227908564`*^9, 
   3.4737465810938563`*^9}, {3.4737467117588563`*^9, 3.473746828957856*^9}, 
   3.4737469626868563`*^9, {3.4737469985368567`*^9, 3.4737470172098565`*^9}, {
   3.4737470999438562`*^9, 3.473747121544856*^9}, {3.4737471871708565`*^9, 
   3.4737472090578566`*^9}, {3.4737472552978563`*^9, 3.4737473340988564`*^9}, 
   3.4737474822558565`*^9, {3.473749869747856*^9, 3.4737498760438566`*^9}, {
   3.4737501459638567`*^9, 3.473750180589856*^9}, {3.4737502309688563`*^9, 
   3.4737504953578568`*^9}, {3.4737505588898563`*^9, 3.473750644332856*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"point", "[", "0", "]"}], "=", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"point", "[", "n_", "]"}], ":=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"OddQ", "[", "n", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"point", "[", 
         RowBox[{"n", "-", "1"}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], "+", 
       RowBox[{"Prime", "[", "n", "]"}]}], ",", 
      RowBox[{
       RowBox[{"point", "[", 
        RowBox[{"n", "-", "1"}], "]"}], "[", 
       RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"point", "[", 
        RowBox[{"n", "-", "1"}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"point", "[", 
         RowBox[{"n", "-", "1"}], "]"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}], "+", 
       RowBox[{"Prime", "[", "n", "]"}]}]}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "=", "22"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"point", "[", "n", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Graphics", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"Green", ",", 
     RowBox[{"Line", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"point", "[", "i", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], "]"}], ",", 
     "Blue", ",", 
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"point", "[", "n", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"point", "[", "n", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "}"}], "]"}]}], "}"}], 
   ",", 
   RowBox[{"Axes", "\[Rule]", "True"}]}], 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.4737475238118563`*^9, 3.4737475763158565`*^9}, {
   3.473747622259856*^9, 3.4737477111588564`*^9}, {3.4737477473578568`*^9, 
   3.4737480127798567`*^9}, {3.4737480483738565`*^9, 3.473748069537856*^9}, {
   3.473748151129856*^9, 3.473748195445856*^9}, {3.4737482591738567`*^9, 
   3.473748291825856*^9}, {3.4737483412698565`*^9, 3.473748343912856*^9}, {
   3.4737483999238567`*^9, 3.473748431549856*^9}, {3.473748481346856*^9, 
   3.4737485938558564`*^9}, {3.473748627872856*^9, 3.4737487072588563`*^9}, 
   3.4737489043638563`*^9, {3.4737490263758564`*^9, 3.4737490687868567`*^9}, {
   3.4737491832528563`*^9, 3.4737491856498566`*^9}, {3.4737495509168563`*^9, 
   3.4737496441478567`*^9}, {3.4737496991128564`*^9, 
   3.4737497014968567`*^9}, {3.4737497962448564`*^9, 
   3.4737497964798565`*^9}, {3.4737500481848564`*^9, 3.4737500483498564`*^9}, 
   3.4737506536608562`*^9, {3.4737508896078568`*^9, 3.4737508953198566`*^9}, {
   3.4737509808878565`*^9, 3.4737509810588565`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"376", ",", "415"}], "}"}]], "Output",
 CellChangeTimes->{
  3.4737480983188562`*^9, {3.4737481577968564`*^9, 3.473748196339856*^9}, 
   3.4737482827088566`*^9, {3.473748334556856*^9, 3.4737483464088564`*^9}, {
   3.4737484168288565`*^9, 3.4737484342728567`*^9}, 3.473748515044856*^9, {
   3.4737485554998565`*^9, 3.4737485951948566`*^9}, {3.473748637004856*^9, 
   3.4737486462528563`*^9}, 3.4737487158288565`*^9, 3.473748916768856*^9, 
   3.4737490390468564`*^9, 3.4737491138108563`*^9, 3.4737491945548563`*^9, 
   3.4737496564938564`*^9, 3.4737497108718567`*^9, 3.4737498054048567`*^9, 
   3.4737500597108564`*^9, 3.473750673511856*^9, 3.4737508968698564`*^9, 
   3.4737509841028566`*^9, 3.4737510182758565`*^9}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0, 1, 0], 
    LineBox[{{2, 0}, {2, 3}, {7, 3}, {7, 10}, {18, 10}, {18, 23}, {35, 23}, {
     35, 42}, {58, 42}, {58, 71}, {89, 71}, {89, 108}, {130, 108}, {130, 
     151}, {177, 151}, {177, 204}, {236, 204}, {236, 265}, {303, 265}, {303, 
     336}, {376, 336}, {376, 415}}]}, 
   {RGBColor[0, 0, 1], LineBox[{{0, 0}, {376, 376}}]}},
  Axes->True]], "Output",
 CellChangeTimes->{
  3.4737480983188562`*^9, {3.4737481577968564`*^9, 3.473748196339856*^9}, 
   3.4737482827088566`*^9, {3.473748334556856*^9, 3.4737483464088564`*^9}, {
   3.4737484168288565`*^9, 3.4737484342728567`*^9}, 3.473748515044856*^9, {
   3.4737485554998565`*^9, 3.4737485951948566`*^9}, {3.473748637004856*^9, 
   3.4737486462528563`*^9}, 3.4737487158288565`*^9, 3.473748916768856*^9, 
   3.4737490390468564`*^9, 3.4737491138108563`*^9, 3.4737491945548563`*^9, 
   3.4737496564938564`*^9, 3.4737497108718567`*^9, 3.4737498054048567`*^9, 
   3.4737500597108564`*^9, 3.473750673511856*^9, 3.4737508968698564`*^9, 
   3.4737509841028566`*^9, 3.4737511358708563`*^9}]
}, Open  ]]
},
WindowSize->{607, 516},
WindowMargins->{{22, Automatic}, {Automatic, 28}},
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 321, 4, 38, "Text"],
Cell[869, 26, 770, 10, 29, "Text"],
Cell[1642, 38, 1021, 15, 65, "Text"],
Cell[2666, 55, 821, 10, 29, "Text"],
Cell[3490, 67, 757, 11, 29, "Text"],
Cell[CellGroupData[{
Cell[4272, 82, 3070, 79, 192, "Input"],
Cell[7345, 163, 754, 12, 30, "Output"],
Cell[8102, 177, 1080, 18, 406, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

